home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CICA 32 1998 April
/
CICA32 (April 1998) (Disc 4 of 4).iso
/
utils
/
unzip531.tgz
/
unzip531.tar
/
qdos
/
config.S
next >
Wrap
Text File
|
1996-07-05
|
2KB
|
149 lines
#
.globl _qlflag
.globl _qlwait
#ifdef ZIP
.globl _dtype
#endif
.data
ds.w 0
dc.b '<<QCFX>>01'
#ifdef ZIP
dc.w 8
dc.b 'Info-ZIP'
* 12345678901234567890
ds.w 0
dc.w 3
dc.b '2.1'
ds.w 0
#else
dc.w 10
dc.b 'Info-UNZIP'
* 12345678901234567890
ds.w 0
dc.w 4
dc.b '5.2b'
ds.w 0
#endif
dc.b 10
dc.b 0
l_4: dc.w _qlwait-l_4
dc.w 0
dc.w 0
l_5: dc.w hpt-l_5
l_6: dc.w hxx-l_6
#ifdef ZIP
dc.b 10
dc.b 0
d_4: dc.w _dtype-d_4
dc.w 0
dc.w 0
d_5: dc.w dpt-d_5
d_6: dc.w dxx-d_6
#else
dc.b 4
dc.b 0
l5:
dc.w list1-l5
dc.w 0
l5a:
dc.w Postit-l5a ; post proc
l6:
dc.w apt-l6
l7:
dc.w axx-l7
* -------------------------------------
dc.b 4
dc.b 0
l8:
dc.w list2-l8
dc.w 0
l8a:
dc.w Postit-l8a ; post proc
l9:
dc.w bpt-l9
la:
dc.w bxx-la
* -------------------------------------
#endif
dc.w -1 ; end
_qlflag:
dc.w 0
_qlwait:
dc.w 250
_dtype:
dc.w 255
hpt: dc.w 10
dc.b 'Exit Delay'
* 12345678901234567890
ds.w 0
hxx: dc.w 0
dc.w $ffff
dc.w -1
#ifdef ZIP
dpt: dc.w 14
dc.b 'Directory Type'
* 12345678901234567890
ds.w 0
dxx: dc.w 3
dc.w $ff
dc.w -1
#else
list1:
dc.b 0
list2:
dc.b 0
apt:
dc.w 11
dc.b 'Unpack Mode'
* 12345678901234567890
.even
axx: dc.b 0
dc.b 0
dc.w 8
dc.b 'SMS/QDOS'
.even
dc.b 1
dc.b 0
dc.w 7
dc.b 'Default'
.even
dc.w -1
.even
bpt:
dc.w 12
dc.b 'Listing Mode'
* 12345678901234567890
.even
bxx:
dc.w 0
dc.w 7
dc.b 'Default'
.even
dc.b 2
dc.b 0
dc.w 8
dc.b 'SMS/QDOS'
* 12345678901234567890
.even
dc.w -1
Postit:
lea.l _qlflag,a0
move.b list1,d0
move.b d0,(a0)
move.b list2,d0
or.b d0,(a0)
moveq #0,d0
rts
#endif
end